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We give an algebraic characterization of the syntax and operational semantics 

of a class of simply-typed languages, such as the language PCF: we characterize 
£NJ simply-typed syntax with variable binding and equipped with reduction rules via 

a universal property, namely as the initial object of some category of models. For 
^ this purpose, we employ techniques developed in two previous works: Ahrens 

q (2012a) models syntactic translations between languages over different sets of 

types as initial morphisms in a category of models. Ahrens (2011) characterizes 
CD untyped syntax with reduction rules as initial object in a category of models. In 

CSj the present work, we show that those techniques are modular enough to be 

CN combined: we thus characterize simply-typed syntax with reduction rules as 

, , initial object in a category. The universal property yields an operator which 

allows to specify translations — that are semantically faithful by construction — 
l_J between languages over possibly different sets of types. 

We specify a language by a 2-signature, that is, a signature on two levels: the 

syntactic level specifies the types and terms of the language, and associates a 

type to each term. The semantic level specifies, through inequations, reduction 
i— i rules on the terms of the language. To any given 2-signature we associate a 

category of models. We prove that this category has an initial object, which 
J> integrates the types and terms freely generated by the 2-signature, and the 

reduction relation on those terms generated by its inequations. We call this 
^ object the (programming) language generated by the 2-signature. 

IT) This paper is an extended version of an article published in the proceedings of 

^sj WoLLIC 2012. 
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1 Introduction 



^ We give an algebraic characterization, via a universal property, of the programming language 

generated by a signature. More precisely, we define a notion of 2-signature which allows the 
specification of the types and terms of a programming language — via a 1-signature, say, S — 
as well as its semantics in form of reduction rules, specified through a set A of inequations 
over S. To any 1-signature £ we associate a category of models of S. Given a 2-signature 
(£,A), the inequations of A give rise to a satisfaction predicate on the models of S, and thus 
specify a full subcategory of models of £ which satisfy the inequations of A. We call this 
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subcategory the category of models of (E,A). Our main theorem states that this category 
has an initial object — the programming language associated to (X,A) — , which integrates 
the types and terms generated by E, equipped with the reduction relation generated by the 
inequations of A 

As an example, we specify a translation from PCF to the untyped lambda calculus ULC 
using the category-theoretic iteration operator. This translation is by construction faithful 
with respect to reduction in PCF and ULC. This example is verified formally in the proof 
assistant Coq (Coq 2010). The Coq files as well as documentation are available online at 

http: / / math.unice.fr/laboratoire/logiciels. 

The present work is an extended version of another work by the author (Ahrens 2012b). 
In that previous work, the main theorem (Ahrens 2012b, Thm. 44) is stated, but no proof is 
given. In the present work, we review the definitions given in the earlier work and present 
a proof of the main theorem. Afterwards, we explain in detail the formal verification in 
the proof assistant Coq (Coq 2010) of an instance of this theorem, for the simply-typed 
programming language PCF. Finally, we illustrate the iteration operator coming from 
initiality by specifying an executable certified translation in Coq from PCF to the untyped 
lambda calculus. 

1.1 Summary 

We define a notion of 2-signature in order to specify the types and terms and reduction rules 
of functional programming languages. Given any 2-signature, we characterize its associated 
programming language as initial object in some category. This characterization of syntax 
with reduction rules is given in two steps: 

1. At first pure syntax is characterized as initial object in some category. Here we use the 
term "pure" to express the fact that no semantic aspects such as reductions on terms 
are considered. As will be explained in Sect. 1.1.1, this characterization is actually a 
consequence of an earlier result (Ahrens 2012a). 

2. Afterwards we consider inequations specifying reduction rules. Given a set of reduction 
rules for terms, we build up on the preceding result to give an algebraic characterization 
of syntax with reduction. Inequations for untyped syntax are considered in earlier work 
(Ahrens 2011); in the present work, the main result of that earlier work is carried over 
to simply-typed syntax. 

In summary, the merit of this work is to give an algebraic characterization of simply-typed 
syntax with reduction rules, building up on such a characterization for pure syntax given 
earlier (Ahrens 2012a). Our approach is based on relative monads as defined by Altenkirch 
et al. (2010) from the category Set of sets to the category Pre of preorders. Compared to 
traditional monads, relative monads allow for different categories as domain and codomain. 
We now explain the above two points in more detail: 
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1.1.1 Pure Syntax 



A 1-signature (S, S) is a pair which specifies the types and terms of a language, respectively. 
Furthermore, it associates a type to any term. To any 1-signature (S, S) we associate 
a category Rep A (S,£) of representations, or "models", of S, where a model of (S,S) is 
built from a model T of the types specified by S and a relative monad on the functor 
A T : Set T -» Pre T . 

This category has an initial object (cf. Lem. 3.23), which integrates the types and terms 
freely generated by (S,S). We call this object the (pure) syntax associated to (S,S). As 
mentioned above, we use the term "pure" to distinguish this initial object from the initial 
object associated to a 2-signature, which gives an analogous characterization of syntax with 
reduction rules (cf. below). 

Initiality for pure syntax is actually a consequence of a related initiality theorem proved in 
another work (Ahrens 2012a): in that work, we associate, to any signature (S, S), a category 
Rep(S, S) of models of (S, S), where a model is built from a (traditional) monad over Set 7 
instead of a relative monad as above. We connect the corresponding categories by exhibiting 
a pair of adjoint functors (cf. Lem. 3.23) between our category Rep A (S, 2) of representations 
of (S, S) and that of Ahrens (2012a), 



We thus obtain an initial object in our category Rep A (S, S) using the fact that left adjoints 
are cocontinuous: the image under the functor A* : Rep(S,£) — * Rep A (S,£) of the initial 
object in the category Rep(S, S) is initial in Rep A (S, S). 

1.1.2 Syntax with Reduction Rules 

Given a 1-signature (S, S), an (S,H)-inequation E = (a, 7) associates a pair (a R ,y R ) of 
parallel morphisms in a suitable category to any representation R of (S, £). In a sense made 
precise later, we can ask whether 

a R < y R , 

due to our use of relative monads towards families of preordered sets. If this is the case, 
we say that R satisfies the inequation E. A 2-signature is a pair ((S,£),A) consisting of a 
1-signature (S, £), which specifies the types and terms of a language, together with a set A 
of (S, T.)-inequations, which specifies reduction rules on those terms. Given a 2-signature 
((S,S),A), we call representation of ((S,S),A) any representation of (S,S) that satisfies 
each inequation of A. The category of representations o/((S, S),A) is defined to be the full 
subcategory of representations of (S, S) whose objects are representations of ((S, S),A). 

We would like to exhibit an initial object in the category of representations of ((S, S), A), 
and thus must rule out inequations which are never satisfied. We call classic (S, S)-inequation 
any (S, S)-inequation whose codomain is of a particular form. Our main result states that 
for any set A of classic (S, S)-inequations the category of representations of ((S, S), A) has an 
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initial object. The class of classic inequations is large enough to account for the fundamental 
reduction rules; in particular, beta and eta reductions are given by classic inequations. 

Our definitions ensure that any reduction rule between terms that is expressed by an 
inequation E e A is automatically propagated into subterms. The set A of inequations hence 
only needs to contain some "generating" inequations, a fact that is well illustrated by the 
example 2-signature A/3 of the untyped lambda calculus with beta reduction (Ahrens 2011): 
This signature has only one inequation /3 which expresses beta reduction at the root of a 
term, 

Xx.M(N) ~> M[x :=N] . 

The initial representation of A/3 is given by the untyped lambda calculus, equipped with 
the reflexive and transitive beta reduction relation as presented by Barendregt and 
Barendsen (1994). 

1.2 Related Work 

Initial Semantics results for syntax with variable binding were first presented on the LICS'99 
conference. Those results are concerned only with the syntactic aspect of languages: they 
characterize the set of terms of a language as an initial object in some category, while not 
taking into account reductions on terms. In lack of a better name, we refer to this kind of 
initiality results as purely syntactic. 

Some of these initiality theorems have been extended to also incorporate semantic aspects, 
e.g., in form of equivalence relations between terms. These extensions are reviewed in the 
second paragraph. 

Purely syntactic results Initial Semantics for "pure" syntax — i.e. without considering 
semantic aspects — with variable binding were presented by several people independently, 
differing in the modelling of variable binding: 

The nominal approach by Gabbay and Pitts (1999) (see also (Gabbay and Pitts 2001; 
Pitts 2003)) uses a set theory enriched with atoms to establish an initiality result. Their 
approach models lambda abstraction as a constructor which takes a pair of a variable name 
and a term as arguments. In contrast to the other techniques mentioned in this list, in the 
nominal approach syntactic equality is different from a-equivalence. Hofmann (1999) proves 
an initiality result modelling variable binding in a Higher-Order Abstract Syntax (HOAS) 
style. Fiore et al. (1999) (also (Fiore 2002; Fiore 2005)) model variable binding through 
nested datatypes as introduced by Bird and Meertens (1998). Fiore et al.'s approach (Fiore 
et al. 1999) is extended to simply-typed syntax by Miculan and Scagnetto (2003). Tanaka 
and Power (2005) generalize and subsume those three approaches to a general category of 
contexts. An overview of this work and references to more technical papers is given by Power 
(2007). Hirschowitz and Maggesi (2007a) prove an initiality result for untyped syntax based 
on the notion of module over a monad. Their work has been extended to simply-typed syntax 
by Zsido (2010). 
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Incorporating Semantics Rewriting in nominal settings has been examined by Fernandez 
and Gabbay (2007). Ghani and Luth (2003) present rewriting for algebraic theories without 
variable binding; they characterize equational theories (with a symmetry rule) resp. rewrite 
systems (with reflexivity and transitivity rule, but without symmetry) as coequalizers resp. 
coinserters in a category of monads on the categories Set resp. Pre. Fiore and Hur (2007) 
have extended Fiore's work to integrate semantic aspects into initiality results. In particular, 
Hur's thesis (Hur 2010) is dedicated to equational systems for syntax with variable binding. 
In a "Further research" section (Hur 2010, Chap. 9.3), Hur suggests the use of preorders, or 
more generally, arbitrary relations to model mequational systems. Hirschowitz and Maggesi 
(2007a) prove initiality of the set of lambda terms modulo beta and eta conversion in a 
category of exponential monads. In an unpublished paper, Hirschowitz and Maggesi (2007b) 
define a notion of half-equation and equation to express congruence between terms. We adopt 
their definition in this paper, but interpret a pair of half-equations as inequation rather than 
equation. This emphasizes the dynamic viewpoint of reductions as directed equalities rather 
than the static, mathematical viewpoint one obtains by considering symmetric relations. 
In a "Future Work" section, Hirschowitz and Maggesi (2010, Sect. 8) mention the idea 
of using preorders as an approach to model semantics, and they suggest interpreting the 
untyped lambda calculus with beta and eta reduction rule as a monad over the category 
Pre of preordered sets. The present work gives an alternative viewpoint to their suggestion 
by considering the lambda calculus with beta reduction — and a class of programming 
languages in general — as a preorder-valued relative monad on the functor A : Set — * Pre. 
The rationale underlying our use of relative monads from sets to preorders is that we consider 
contexts to be given by unstructured sets, whereas terms of a language carry structure in form 
of a reduction relation. In this view it is reasonable to suppose variables and terms to live 
in different categories, which is possible through the use of relative monads on the functor 
A : Set — » Pre (cf. Def. 2.6) instead of traditional monads (cf. also (Ahrens 2011)). Relative 
monads were introduced by Altenkirch et al. (2010). In that work, the authors characterize 
the untyped lambda calculus as a relative monad over the inclusion functor from finite sets to 
sets. Their point of view can be combined with ours, leading to considering monads on the 
functor Aoi : Fin — » Pre, cf. Ex. 2.3. Hirschowitz (2011) , taking the viewpoint of Categorical 
Semantics, defines a category Sig of 2-signatures for simply-typed syntax with reduction 
rules, and constructs an adjunction between Sig and the category 2CCCat of small cartesian 
closed 2-categories. He thus associates to any signature a 2-category of types, terms and 
reductions satisfying a universal property. More precisely, terms are given by morphisms in 
this category, and reductions are expressed by the existence of 2-cells between terms. His 
approach differs from ours in the way in which variable binding is modelled: Hirschowitz 
encodes binding in a Higher-Order Abstract Syntax (HOAS) style through exponentials. 



1.3 Synopsis 

In the second section we review the definition of relative monads and modules over such 
monads as well as their morphisms. Some constructions on monads and modules are given, 
which will be of importance in what follows. 
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In the third section we define arities, half-equations and inequations, as well as their 
representations. Afterwards we prove our main result. 

In the fourth section we describe the formalization in the proof assistant Coq of an instance 
of our main result, for the particular case of the language PCF. 

2 Relative Monads and Modules 

The functor underlying a monad is necessarily endo — this is enforced by the type of monadic 
multiplication. Relative monads were introduced by Altenkirch et al. (2010) to overcome this 
restriction. One of their motivations was to consider the untyped lambda calculus over finite 
contexts as a monad-like structure — similar to the monad structure on the lambda calculus 
over arbitrary contexts exhibited by Altenkirch and Reus (1999). 

We review the definition of relative monads and define suitable colax morphisms of relative 
monads. Afterwards we define modules over relative monads and port the constructions on 
modules over monads defined by Hirschowitz and Maggesi (2007a) to modules over relative 
monads. 

2.1 Definitions 

We review the definition of relative monad as given by Altenkirch et al. (2010) and define 
suitable morphisms for them. As an example we consider the lambda calculus with beta 
reduction as a relative monad from sets to preorders, on the functor A : Set — * Pre (cf. 
Def. 2.6). Afterwards we define modules over relative monads and carry over the constructions 
on modules over regular monads of Hirschowitz and Maggesi (2007a) to modules over 
relative monads. 

The definition of relative monads is analogous to that of monads in Kleisli form, except 
that the underlying map of objects is between different categories. Thus, for the operations 
to remain well-typed, one needs an additional "mediating" functor, in the following usually 
called F, which is inserted wherever necessary: 

2.1 Definition (Relative Monad, (Altenkirch et al. 2010)): Given categories ^ and & and a 

F 

functor F : ^ — > @, a relative monad P : ^ — > @ on F is given by the following data: 

• a map P : ^ — > 9) on the objects of ^ , 

• for each object c of , a morphism r\ c e @(Fc, Pc) and 

• for each two objects c, d of , a substitution map (whose subscripts we usually omit) 

cr c4 : S)(Fc, Pd) ®{Pc, Pd) 
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such that the following diagrams commute for all suitable morphisms / and g: 




2.2 Remark: Relative monads on the identity functor Id : — > precisely correspond to 
monads. 

Various examples of relative monads are given by Altenkirch et al. (2010). They give one 
example related to syntax and substitution: 

2.3 Example (Lambda Calculus over Finite Contexts): Altenkirch et al. (2010) consider the 
untyped lambda calculus as a relative monad on the functor J : Fin skel — > Set. Here the 
category Fin skel is the category of finite cardinals, i.e. the skeleton of the category Fin of finite 
sets and maps between finite sets. The category Set is the category of sets, cf. Def. 2.4. 

We will give another example (cf. Ex. 2.9) of how to view syntax with reduction rules as a 
relative monad. For this, we first fix some definitions. 

2.4 Definition: The category Set is the category of sets and total maps between them, 
together with the usual composition of maps. 

2.5 Definition: The category Pre of preorders has, as objects, sets equipped with a preorder, 
and, as morphisms between any two preordered sets A and B, the monotone functions from 
A to B. We consider Pre as a category enriched over itself as follows: given /,ge Pre(A,B), 
we say that / < g iff for any a e A, / (a) < g(a) in B. 

2.6 Definition (Functor A : Set — * Pre and Forgetful Functor): We call A : Set — » Pre the 
left adjoint of the forgetful functor U : Pre — * Set, 



A 




U 



The functor A associates, to each set X, the set itself together with the smallest preorder, i.e. 
the diagonal of X, 

A(X):=(X,5 X ) . 

In other words, for any x,y el we have x5 x y if and only if x = y. The functor A : Set — * 
Pre is a full embedding, i.e. it is fully faithful and injective on objects. We have U o A = Ids et . 
Altogether, the embedding A : Set — » Pre is a coreflection. We denote by ip the family of 
isomorphisms 

y XJ : Pre(AX, Y) = Set(X, UY) . 
We omit the indices of ip whenever they can be deduced from the context. 
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2.7 Definition (Category of Families): Let ^ be a category and T be a set, i.e. a discrete 
category. We denote by ^ T the functor category, an object of which is a T-indexed family of 
objects of . Given two families V and W, a morphism / : V — * W is a family of morphisms 
in <g, 

f : t-»/(t): V(0-iV(t) . 

We write V t := V(r) for objects and morphisms. Given another category & and a functor 
F : ^ — > 3, we denote by F T the functor defined on objects and morphisms as 

F T :V T ^3 T , / ~(t~F(/ t )) . 

2.8 Remark: Given a set T, the adjunction of Def. 2.6 induces an adjunction 




U T 

2.9 Example (Simply-Typed Lambda Calculus as Relative Monad on A r ): Let 

T : = T TLC '■'■= * I T TLC ~> T TLC 

be the set of types of the simply-typed lambda calculus. Consider the set family of simply- 
typed lambda terms over Tj\_q, indexed by typed contexts: 

Inductive TLC (V : T -> Type) : T -> Type := 
Var : forall t, V t -> TLC V t 
j Abs : forall s t TLC (V + s) t -> TLC V (s ~> t) 
App : forall s t, TLC V (s ~> t) -> TLC V s -> TLC V t. 

Here the context V + s is the context V extended by a fresh variable of type s — the variable 
that is bound by the constructor Abs (cf. also Sect. 2.3). We leave the object type arguments 
implicit and write AM and M(JV) for AbsM and App MN, respectively. We equip each set 
TLC(V)(t) of lambda terms over context V of object type t with a preorder taken as the 
reflexive-transitive closure of the relation generated by the rule 

AM (IV) < M[*:=N] 

and its propagation into subterms. This defines a monad TLC^ from families of sets to 
families of preorders over the functor A r , 

TICp : Set r Pre r . 

The family tj tlc is given by the constructor Var, and the substitution map 

a x>Y : Pre T (A r (X), TLC^Y)) - Pre r (TLC^X), TLC^F)) (1) 

is given by capture-avoiding simultaneous substitution. Via the adjunction of Rem. 2.8 the 
substitution can also be read as 

a XJ : Set T (X,TLC(Y)) - Pre r (TLC p (X), TLC^Y)) . 
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In the previous example, the substitution of the lambda calculus satisfies an additional 
monotonicity property: the map cr X Y in Disp. (1) is monotone for the preorders on hom-sets 
defined in Def. 2.5 and its propagation in products. This motivates the following definition: 

2.10 Definition: Given a monad PonA T for some set T. We say that P is a reduction monad 
if for anyX and Y the substition a X Y is monotone for the preorders on Pre T (A r X, PY) and 
Pre 1 \PX,PY). 

The monad TLC^ is thus a reduction monad. It will be clear from Def. 2.40 why we are 
interested in reduction monads. 

2.11 Remark Relative Monads are /tinctorial: Given a monad P over F : ^ — > @, a functorial 
action (rlift) for P is defined by setting, for any morphism / : c — > d in ^ , 

P(/):=lift P (/):=o-(r ) oF/) . 

The functor axioms are easily proved from the monadic axioms. 

The substitution a = (cT c ,d)c,de\^\ °f a relative monad P is binatural: 

2.12 Remark Naturality of Substitution: Given a relative monad P over F : ^ — > &, then its 
substitution a is natural in c and d. We write f*(h) := h of. For naturality in c we check 
that the diagram 

c ®(Fc,Pd) — >®(Pc,Pd) 



f 



(Ff) 

®{Fc',Pd) 



V,d 



(pff 
-*®{Pc',Pd) 



commutes. Given g e &(Fc' ,Pd), we have 

cr(g) oPf = cr(g) o cr(Tj c / o Ff) 
= cr(a(g)or] c >oFf) 
= o(g°Ff) , 

where the numbers correspond to the diagrams of Def. 2.1 used to rewrite in the respective 
step. Similarly we check naturality in d. Writing h*(g) := h o g, the diagram 



d 9){Fc,Pd) 
(WO 

d' &{Fc',Pd)- 
commutes: given g e &{Fc,Pi), we have 



-^@(Pc,Pd) 

(Wi) t 



Ph o cr(g) = cr(Tj d / o Fh) o cr(g) 
= cr(cr(i7 d / o Fh) o g) 

= C7(Pfrog) . 
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If (TjOj-gj is a family of sets and / : I — > J a map of sets, then we obtain a family of 
sets Crp ;eJ by setting T'. := T T{f|/(Q^j} The following construction generalizes this 
reparametrization: 

2.13 Definition (Retyping Functor): Let T and T' be sets and g : T — * T' be a map. Let ^ 
be a cocomplete category. The map g induces a functor 

g* : -> ^ T , W^Wog . 

The retyping functor associated to g : T — > F 7 , 

g:^ T ^^ T ' , 

is defined as the left Kan extension operation along g, that is, we have an adjunction 



s 




g* 



Put differently, the map g : T — > T' induces an endofunctor g on ^ T with object map 

g(V):=g(V)°g 

and we have a natural transformation ctype — the unit of the adjunction of Disp. (2), 

ctype : Id => g : <g T -> 1Z T . 

2.14 Definition (Pointed index sets): Given a category c €, a set T and a natural number n, 
we denote by the category with, as objects, diagrams of the form 

n±T^V , 

written (V, t 1 , . . . , t n ) with t t := t(t). A morphism h to another such (W, t) with the same 
pointing map t is given by a morphism h : V — * W in ^ T . Any functor F : ^ T — * @ T extends 
to F n : ^€ T n -» @ n r via 

F n (V,t 1 ,...,tJ:=(FV,t 1 ,...,tJ . 

2.15 Remark: The category consists of T n copies of c g T , which do not interact. Due to 
the "markers" (t 1; . . . , t n ) we can act differently on each copy, cf., e.g., Defs. 2.35 and 2.36. 

Retyping functors generalize to categories with pointed indexing sets; when changing 
types according to a map of types g : T — * T', the markers must be adapted as well: 

2.16 Definition: Given a map of sets g : T — > T' , by postcomposing the pointing map with 
g, the retyping functor generalizes to the functor 

Sin) : < ^ ^ , (V, t) ~ (gV, g,(t)) , 

where g*(t) := g ° t : n — * T' . 
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We are interested in monads on the category Set r of families of sets indexed by T and 
relative monads on A r : Set — > Pre as well as their relationship: 

2.17 Lemma (Relative Monads on A r and Monads on Set r ): Let P be a relative monad on 
A : Set T — > Pre r . By postcomposing with the forgetful functor U 7 : Pre r — > Set 7 we obtain a 
monad 

UP : Set 7 -» Set 7 " . 
The substitution is defined, for m : X — * UPY by setting 

Ucr : m —* U (cr (i/? _1 m)) , 

making use of the adjunction <p of Rem. 2.8. Conversely, to any monad P over Set 7 , we associate 
a relative monad AP over A 7 by postcomposing with A 7 . 

We generalize the definition of colax monad morphisms (Leinster 2004) to relative monads: 

2.18 Definition (Colax Morphism of Relative Monads): Suppose given two relative monads 

F jF' 

P : — > & and Q : c € l — * &' . A colax morphism of relative monads from P to Q is a quadruple 
h = (G, G',N, t) of a functor G: <g -> c € l , a functor G' : & -> @' as well as a natural 
transformation N : F'G — > G'F and a natural transformation t : PG 1 — » GQ such that the 
following diagrams commute for any objects c, d and any suitable morphism /: 



G'Pc -—^ G'Pd 



F'Gc 



QGc 



a Q (T d oG'foNc) 



>QGd 




>G'Pc 



QGc. 



Naturality of t in the preceding definition is actually a consequence of the commutative 
diagrams of Def. 2.18, cf. Lemma colax_RMonad_Hom_NatTrans in the Coq library. 

2.19 Remark: In Sect. 3 we are going to use the following instance of the preceding defi- 
nition: the categories ^ and c g' are instantiated by Set r and Set r , respectively for sets T 
and T' . The functor G is the retyping functor (cf. Def. 2.13) associated to some translation of 
types g : T — > T' . Similarly, the categories Sf and Q)' are instantiated by Pre r and Pre r , and 
the functor F by 

F :=A T : Set 7 -> Pre 7 , 



and similar for F 1 : 



>Pre r 




>Pre T 
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Given a monad P on F : ^ — > the notion of module over P generalizes the notion of 
monadic substitution: 



2.20 Definition (Module over a Relative Monad): Let P : ^ — * <2) be a relative monad and 
let 8 be a category. A module M over P with codomain 8 is given by 

• a map M : ^ — > 8 on the objects of the categories involved and 

• for all objects c, d of S^, a map 

C Cjd : @(Fc, Pd) -» 8{Mc, Md) 
such that the following diagrams commute for all suitable morphisms / and g: 

Mc ?(/) ) Md 
Me 

A functoriality (rmlift) for such a module M is then defined similarly to that for relative 
monads: for any morphism / : c — * d in ^ we set 

M(/):=rmlift M (/):= ? (rjoF/) . 

The following examples of modules are instances of constructions explained in the next 
section: 

2.21 Example (Ex. 2.9 cont.): The map TLC^ : V >-* TLC^(V) yields a module over the 
relative monad TLC^, the tautological TLCp-module TLC^. 

2.22 Example: Given V e Set and s€T, we denote by V + s the context V enriched by 
an additional variable of type s. The map TLC^ : V >-> TLC^(V S ) inherits the structure of a 
TLC^-module from the tautological module TLC^ (cf. Ex. 2.21). We call TLC^ the derived 
module with respect to s e T of the module TLC^; cf. also Sect. 2.2. 

2.23 Example: Given t€T, the map V —> TLC^(V)(t) : Set T — > Pre inherits a structure of 
a TLC^-module, the fibre module [TLC^] t with respect to t e T. 

2.24 Example: Given s,t e T, the map V -» TLC (3 (V)(5 ~» r) x TLC /3 (V)(s) inherits a 
structure of an TLC^ -module. 

A module morphism is a family of morphisms that is compatible with module substitution 
in the source and target modules: 

2.25 Definition (Morphism of Relative Modules): Let M and N be two relative modules 

F 

over P : — * & with codomain 8. A morphism of relative P-modules from M to N is given 
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by a collection of morphisms p c 
following diagram commutes: 



8{Mc,Nc) such that for all morphisms / e ®(Fc,Pd) the 



Mc 



Nc 



? M (/) 



Pd 



->Nd. 



The modules over P with codomain 8 and morphisms between them form a category called 
RMod(P, 8) (in the digital library: RMOD P E). Composition and identity morphisms of 
modules are defined by pointwise composition and identity, similarly to the category of 
monads. 



2.26 Example (Ex. 2.21, 2.22, Ex. 2.24 cont.): Abstraction and application are morphisms 
of TLC^-modules: 

Abs, jt :[TLC* p ] t -»[TLC fl U t , 

App s t : [TLCpL-t x [TLCp] s -» [TLC /3 ] t . 



2.2 Constructions on Relative Monads and Modules 

The following constructions are analogous to those used by Hirschowitz and Maggesi (2007a). 
Any relative monad P comes with the tautological module over P itself: 

2.27 Definition (Tautological Module): Every relative monad P on F : ^ — > 2? yields a 
module (P, a p ) — also denoted by P — over itself, i.e. an object in the category RMod(P, @). 

2.28 Definition (Constant and Terminal Module): Let P be a relative monad on F : ^ -> @. 
For any object e e 8 the constant map T e : — * 8, c >-> e for all c e , is equipped with the 
structure of a P-module by setting Cc,dCf ) = id e . In particular, if S has a terminal object l g , 
then the constant module 7\ : c —> \ g is terminal in RMod(P, <?). 

2.29 Definition (Postcomposition with a functor): Let P be a relative monad on F : ^ — * 9), 
and let M be a P-module with codomain 8. Let G : 8 — > 3C be a functor. Then the object 
map GoM:^->f defined by c >-» G(M(c)) is equipped with a P-module structure by 
setting, for c,de^ and / e ®{Fc,PA~), 

? GoM (/):=G( C M (/)) • 

For M := P (considered as tautological module over itself) and G a constant functor mapping 
to an object xel and its identity morphism id x , we obtain the constant module (T x ,id) as 
in the preceding definition. 

Given a module N over a relative monad Q and a monad morphism t : P — * Q into Q, we 
can rebase or "pull back" the module N along t: 
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2.30 Definition (Pullback Module): Suppose given two relative monads P and Q and a 
morphism t : P — > Q as in Def. 2.18. Let N a Q-module with codomain S. We define a 
P-module h*M to 8 with object map 

c^M(Gc) 

by defining the substitution map, for / : Fc — > Pd, as 

^M (/):=c M (hdOG / /o]Vc) _ 

The module thus defined is called the pullback module ofN along h. The pullback extends to 
module morphisms and is functorial. 

2.31 Definition (Induced Module Morphism): With the same notation as before, the monad 
morphism h induces a morphism of P-modules h : G'P — * h*Q. Note that the domain module 
is the module obtained by postcomposing (the tautological module of) P with G' , whereas 
for (traditional) monads the domain module was just the tautological module of the domain 
monad (Hirschowitz and Maggesi 2007a). 

One big difference between monads — both traditional and relative ones — and modules 
over them is that for the latter we know how to take products: 

2.32 Definition (Product): Suppose the category § has products. Let M and N be P-modules 
with codomain 8. Then the map 

M x N : ^ -> 8, c-^McxNc 

is canonically equipped with a substitution and thus constitutes a module called the product 
of M and N. This construction extends to a product on RMod(P, 8). 

2.3 Derivation & Fibre 

We are particularly interested in relative monads on the functor A T : Set r — * Pre 7 for some 
set T, and modules over such monads. Derivation and fibre, two important constructions of 
Hirschowitz and Maggesi (2010) on modules over monads on families of sets, carry over to 
modules over relative monads on A T . 

Given u e T, we denote by D(iz) e Set r the context with D(u)(u) = {*} and D(u)(t) = 
for u/t. For a context V e Set r we set V* u := V + D(u). 

2.33 Definition: Given a monad P over A T and a P-module M with codomain 8, we define 
the derived module of M with respect to u e T by setting 

M U (V) := M(V* U ) . 

The module substitution is defined, for / e Pre r (A T V, PW), by 

? MU Cf):=C M (u/) • 
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Here the "shifted" map 

J e Pre r (A r (V* u ),P(W*")) 
is the adjunct under the adjunction of Rem. 2.8 of the coproduct map 

V(u/) == mini) of, r,(inr(*))] : V*" - f/P(W*") , 

where [inl, inr] = id : W* u — * W* u . Derivation is an endofunctor on the category of P- 
modules with codomain S. 

2.34 Notation: In case the set T of types is T = {*} the singleton set of types, i.e. when 
talking about untyped syntax, we denote by M' the derived module of M. Given a natural 
number n, we denote by M" the module obtained by deriving n times the module M. 

Analogously to Ahrens (2012a), we derive more generally with respect to a natural 
transformation t : 1 — > 3"U n : 

2.35 Definition (Derived Module): Let t : 1 — * 3"U n be a natural transformation. Let T be a 
set and P be a relative monad on A^. Given any P-module M, we call derivation of M with 
respect to t the module with object map M T (V) := M (V^). 

2.36 Definition: Let P be a relative monad over F, and M a P-module with codomain S J 
for some category S. The fibre module [M] t of M with respect to t eT has object map 

c->M(cX0 = .M(c;) t 

and substitution map 

C [M]t (/):=(? M (/)) t • 

This definition generalizes to fibres with respect to a natural transformation as in Def. 2.35. 
The pullback operation commutes with products, derivations and fibres : 

2.37 Lemma: Let ^ and & he categories and £ be a category with products. Let P : ^ — * & 
and Q: — > D be monads over F : —* and F' : c € l — * 3s', resp., and p : P — > Qa monad 
morphism. Let M and N be P-modules with codomain S. The pullback functor is cartesian: 

p*(M x N) = p*M x p*N . 

2.38 Lemma: Consider the setting as in the preceding lemma, with F = A T , and t e T. Then 
we have 

p*(M f )^(pW . 

2.39 Lemma: Suppose N is a Q-module with codomain § , and tel. Then 

p*[M] t ^[p*M] t . 
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2.40 Definition (Substitution of one Variable): Let T be a (nonempty) set and let P be a 
reduction monad (cf. Def. 2.10) over A r . For any 5, t e T andX e Set r we define a binary 
substitution operation 

subst S;t (X) : P(X* s ) t x P(X\ -» P(X) t , 

(y,s)-»y[*:=z] := ex ([17*, Ax.z]) (y) . 
For any pair (5, t) e T 2 , we thus obtain a morphism of P-modules 

subst£ t :[P s ] t x[P] s -[P] t . 

Observe that this substitution operation is monotone in both arguments: monotonicity 
in the first argument is a consequence of the monadic axioms. Monotonicity in the second 
argument is enforced by considering reduction monads (Def. 2.10). 

3 Signatures, Representations, Initiality 

We combine the techniques of Ahrens (2012a) and Ahrens (2011) in order to obtain an 
initiality result for simple type systems with reductions on the term level. As an example, we 
specify, via the iteration principle coming from the universal property, a semantically faithful 
translation from PCF with its usual reduction relation to the untyped lambda calculus with 
beta reduction. 

More precisely, in this section we define a notion of signature and suitable representations 
for such signatures, such that the types and terms generated by the signature, equipped 
with reductions according to the inequations specified by the signature, form the initial 
representation. Analogously to Ahrens (2011), we define a notion of 2-signature with two 
levels: a syntactic level specifying types and terms of a language, and, on top of that, a 
semantic level specifying reduction rules on the terms. 

3.1 1-Signatures 

A 1-signature specifies types and terms over these types. We give two presentations of 
1-signatures, a syntactic one (cf. Def. 3.7) and a semantic one (cf. Def. 3.18). The syntactic 
presentation is the same as in Ahrens (2012a). However, the semantic presentation is here 
adapted to our use of relative monads or, to be more precise, reduction monads. 

3.1.1 Signatures for Types 

We present algebraic signatures, which later are used to specify the object types of the 
languages we consider. Algebraic signatures and their models were first considered by 
Birkhoff (1935). 

3.1 Definition (Algebraic Signature): An algebraic signature S is a family of natural numbers, 
i.e. a set J s and a map (carrying the same name as the signature) S : J s — * N. For j e J s and 
n € N, we also write j : n instead of; >-» n. An element of J resp. its image under S is called 
an arity of S. 
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3.2 Example (Algebraic Signature of Tjlq, Ex. 2.9): The algebraic signature of the types of 
the simply-typed lambda calculus is given by 

S TLC := {* : , (-) : 2} . 

To any algebraic signature we associate a category of representations. We call representation 
of S any set U equipped with operations according to the signature S. A morphism of 
representations is a map between the underlying sets that is compatible with the operations 
on either side in a suitable sense. Representations and their morphisms form a category. We 
give the formal definitions: 

3.3 Definition (Representation of an Algebraic Signature) : A representation R of an algebraic 
signature S is given by 

• a set X and 

• for each j G J s , an operation j R : X s ^ — > X. 

In the following, given a representation R, we write R also for its underlying set. 

3.4 Definition (Morphisms of Representations) : Given two representations T and U of the 
algebraic signature S, a morphism from T to U is a map f : T —*U such that, for any arity 
n = S(j) of S, we have 

f j T = j u o{ fx.xf) . 

n times 

3.5 Example: The language PCF (Plotkin 1977; Hyland and Ong 2000) is a simply-typed 
lambda calculus with a fixed point operator and arithmetic constants. Let J :={(., o, (=>)}. 
The signature of the types of PCF is given by the arities 

S PCF := {t : , o : , (=>) : 2} . 

A representation T of SpQf is given by a set T and three operations, 

J : T , o T :T , (=>) r : T x T -» T . 

Given two representations T and U of Sp^p, a morphism from T to U is a map / : T — > U 
between the underlying sets such that, for any 5, t e T, 

fb T ) = L U , 

f(o T ) = o u and 
f(s^ T t) = f(s)^ u f(t) . 

3.1.2 Signatures for Terms 

Consider the example of the simply-typed lambda calculus over a set Tj\_q of types. Its 
signature for terms may be given as follows: 

{abs 4jt := [([s],0] -»(s~»£) , app s>t := [([],s ~* t),([],s)] -»■ t} s>tsTTLC . (3) 
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The parameters s and t range over the set Tj L q of types, the initial representation of the 
signature for types from Ex. 3.2. Our goal is to consider representations of the simply-typed 
lambda calculus in monads over categories of the form Set r for any set T — provided that T 
is equipped with a representation of the signature Sjiq. It thus is more suitable to specify 
the signature of the simply-typed lambda calculus as follows: 

{abs:= [([1],2)] ->(1~»2) , app := [([], 1 ~» 2), ([], 1)] -> 2} . (4) 

For any representation T of S-]-|_o the variables 1 and 2 range over elements of T. In this 
way the number of abstractions and applications depends on the representation T of Sj\_q: 
intuitively, a representation of the above signature of Disp. (4) over a representation T of 
Tjiq has T 2 abstractions and T 2 applications — one for each pair of elements of T. 

3.6 Definition (Type of Degree n): For n > 1, we call types of S of degree n the elements of 
the set S(n) of types associated to the signature S with free variables in the set {1, . . . , n}. 
We set S(0) := S. Formally, the set S(n) may be obtained as the initial representation of the 
signature S enriched by n miliary arities. 

Types of degree n are used to form classic arities of degree n: 

3.7 Definition (Classic Arity of Degree n): A classic arity for terms over the signature S for 
types of degree n is of the form 

[(lh,i,---,h,m 1 ],til---,(ltk,i,---,t k ,m k ],tk)l -»to > (5) 

where ty, t ; e S(n). More formally, a classic arity of degree n over S is a pair consisting of 
an element t e S(n) and a list of pairs, where each pair itself consists of a list [tn, ... , t im .] 
of elements of S(n) and an element t; of S(n). 

A classic arity of the form given in Disp. (5) denotes a constructor — or a family of 
constructors, for n > 1 — whose output type is t , and whose k inputs are terms of type t ; , 
respectively, in each of which variables of type according to the list [ty, . . . , t; jmj ] are bound 
by the constructor. 

We have to adapt the semantic definition of signatures for terms, however, since we now 
work with reduction monads on A r for some set T instead of monads over families of sets. 
The following definition is the analogue of earlier work (Ahrens 2012a), adapted to the use 
of relative monads: 

3.8 Definition (Relative S-Monad): Given an algebraic signature S, the category S-RMnd of 
relative S-monads is defined as the category whose objects are pairs (T, P) of a representation 
T of S and a reduction monad 

P : Set r ^ Pre r . 

A morphism from (T, P) to (T',P') is a pair (g,/) of a morphism of S-representations 
g : T — > T' and a morphism of relative monads / : P — > P' over the retyping functor g as in 
Rem. 2.19. 
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Given n e N, we write S-RMnd n for the category whose objects are pairs (T,P) of a 
representation T of S and a reduction monad P over A^. A morphism from (T, P) to (7*', P') 
is a pair (g,/) of a morphism of S-representations g : T — > T' and a monad morphism 
/ : P — * P' over the retyping functor g n defined in Def. 2.16. 

Similarly, we have a large category of modules over relative monads: 

3.9 Definition (Large Category LRMod n (S, @) of Modules): Given a natural number n e N, 
an algebraic signature S and a category ®, we call LRMod n (S, @) the category an object of 
which is a pair (P, M) of a relative S-monad P e S-RMnd n and a P-module with codomain 
@. A morphism to another such (Q,iV) is a pair (/, K) of a morphism of relative S-monads 
/ : P — * Q in S-RMnd n and a morphism of relative modules h : M — > /*iV. 

As before, we sometimes just write the module — i.e. the second — component of an 
object or morphism of the large category of modules. Given M e LRMod n (S, @), we thus 
write M(V) or M v for the value of the module on the object V. 

A half-arity over S of degree n is a functor from relative S-monads to the category of large 
modules of degree n: 

3.10 Definition (Half-Arity over S (of degree n)): Given an algebraic signature S and neN, 
we call half-arity over S of degree n a functor 

a:S-RMnd^LRMod„(S,Pre) . 

which is pre-inverse to the forgetful functor. 

As before we restrict ourselves to a class of such functors. Again, we start with the 
tautological module: 

3.11 Definition (Tautological Module of Degree n): Given n e N, any relative monad R over 
A T induces a monad R n over with object map (V, t 1; . . . , t n ) >-» (RV, t 1 ,..., t n ). To any 
relative S-monad R we associate the tautological module of R n , 

e n (P):=(P n ,P n )eLRMod n (S,Pre^) . 

Furthermore, we use canonical natural transformations (cf. Def. 3.13) to build classic half- 
arities; these transformations specify context extension (derivation) and selection of specific 
object types (fibre) : 

3.12 Definition (S^ n ): Given a category ^ — think of it as the category Set of sets — we 
define the category S ^ n to be the category an object of which is a triple ( T, V, t) where T is a 
representation of S, the object V e ^ is a T-indexed family of objects of and t is a vector 
of elements of T of length n. We denote by SU n : S c € n — * Set the functor mapping an object 
(T, V, t) to the underlying set T. 

We have a forgetful functor S t € n —*5f t 6 n which forgets the representation structure. On 
the other hand, any representation T of S in a set T gives rise to a functor ^ n r — > S^ n , which 
"attaches" the representation structure. 
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The meaning of a term s S S(n) as a natural transformation 



s : 1 =>SL/ n : S^ n -» Set 
is now given by recursion on the structure of s: 

3.13 Definition (Canonical Natural Transformation): Let 5 e S(n) be a type of degree n. 
Then s denotes a natural transformation 

s : 1 =>SL/ n : ^ Set 

defined recursively on the structure of 5 as follows: for s = a(a 1 , . . . , a k ) the image of a 
constructor a e S we set 

5 (r, V, t) = a(a x (r, V, t), . . . , a fc (r, V, t)) 
and for s = m with 1 < m < n we define 

s(T,V,t) = t(m) • 
We call a natural transformation of the form 5 e S(n) canonical. 

3.14 Definition (Classic Half-Arity): As with monads (cf. Ahrens (2012a)), we restrict our 
attention to classic half-arities, which we define analogously to Ahrens (2012a) as constructed 
using derivations and products, starting from the fibres of the tautological module and the 
constant singleton module. We omit the precise statement of this definition. 

The following clauses define an inductive set of classic half-arities, to which we restrict 
our attention: 

• The constant functor * : R <-* 1 is a classic half-arity. 

• Given any canonical natural transformation t : 1 — » SU n (cf. Def. 3.13), the point-wise 
fibre module with respect to t (cf. Def. 2.36) of the tautological module 9 n : R >-* 
(R n ,R n ) (cf. Def. 3.11) is a classic half-arity of degree n, 

[6„] T :S-RMnd^LRMod n (S,Set) , R^[R n ] T . 

• Given any (classic) half-arity M : S-Mnd — > LMod n (S, Set) of degree n and a canonical 
natural transformation t : 1 — * SU n , the point-wise derivation of M with respect to t 
is a (classic) half-arity of degree n, 

M T : S-RMnd — > LRMod n (S,Set) , R-» (M(R)) T . 

Here (M(R)) T really means derivation of the module, i.e. derivation in the second 
component of M(R). 
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• For a half-arity M, let M ; : R —> 7i;M(R) denote the i-th projection. Given two 
(polynomial) half-arities M and N of degree n, which coincide pointwise on the first 
component, i.e. such that M 1 = N 1 . Then their product M x N is again a (polynomial) 
half-arity of degree n. Here the product is really the pointwise product in the second 
component, i.e. 

M xJV :J?>-> (MjCR), M 2 (R) x IV 2 (R)) . 

A half-arity of degree n thus associates, to any relative S-monad P over a set of types T, a 
family of P-modules indexed by T n : 

3.15 Remark Module of Higher Degree corresponds to a Family of Modules: Let T be a 
set and let R be a monad on the functor A r . Then a module M over the monad R n 
corresponds precisely to a family of R-modules (M t ) teT n by (un) currying. Similarly, a 
morphism a : M — » N of modules of degree n is equivalent to a family (ct t ) ter n of morphisms 
of modules of degree zero with a t : M t — * N t . 

An arity of degree n e N for terms over an algebraic signature S is defined to be a pair of 
functors from relative S-monads to modules in LRMod n (S, Pre). The degree n corresponds 
to the number of object type indices of its associated constructor. As an example, the arities 
of Abs and App of Disp. (4) are of degree 2. 

3.16 Definition (Weighted Set): A weighted set is a set J together with a map d : J — * N. 

3.17 Definition (Term-Arity Signature over S): A classic arity a over S of degree n is a pair 

s = (dom(a), cod(a)) 
of half-arities over S of degree n such that 

• dom(a) is classic and 

• cod(a) is of the form [6 n ] T for some canonical natural transformation t as in Def. 3.13. 

Any classic arity is thus syntactically of the form given in Def. 3.7. We write dom(a) — » cod(a) 
for the arity a, and dom(a,R) := dom(a)(R) and similar for the codomain and morphisms of 
relative S-monads. Given a weighted set (J,d) as in Def. 3.16, a term-signature S over S 
indexed by (J, d) is a J-family S of algebraic arities over S, the arity S(j) being of degree 
d(j) for any jeJ. 

3.18 Definition (Typed Signature) : A typed signature is a pair (S, S) consisting of an algebraic 
signature S for sorts and a term-signature S (indexed by some weighted set) over S. 

3.19 Example: The terms of the simply typed lambda calculus over the type signature of 
Ex. 3.2 are given by the arities 

abs: [e^-re]!^ , 

app: [8] w x [e] a ^[9] 2 , 
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Figure 1: Term Signature of PCF 



both of which are of degree 2 — we leave the degree implicit. The outer lower index and 
the exponent are to be interpreted as de Bruijn variables, ranging over types. They indicate 
the fibre (cf. Def. 2.36) and derivation (cf. Def. 2.35), respectively, in the special case where 
the corresponding natural transformation is given by a natural number as in Def. 3.13. In 
particular, contrast that to the signature for the simply-typed lambda calculus we gave in 
Disp. (3). The difference is that now "similar" arities which differ only in an object type 
parameter, are grouped together, whereas this is not the case in Disp. (3). 

Those two arities, abs and app, can in fact be considered over any algebraic signature S 
with an arrow constructor, in particular over the signature Sp^p (cf. Ex. 3.20). 

3.20 Example (Ex. 3.5 continued): We continue considering PCF. The signature Spcp for 
its types is given in Ex. 3.5. The term-signature of PCF is given in Fig. 1: it consists of an 
arity for abstraction and an arity for application, each of degree 2, an arity (of degree 1) for 
the fixed point operator, and one arity of degree for each logic and arithmetic constant — 
some of which we omit: 

Our presentation of PCF is inspired by Hyland and Ong (2000), who — similarly to Plotkin 
(1977) — consider, e.g., the successor as a constant of arrow type. As an alternative, one 
might consider the successor as a constructor expecting a term of type l as argument, yielding 
a term of type l. For our purpose, those two points of view are equivalent. 

3.2 Representations of 1-Signatures 

3.21 Definition (Representation of an Arity, a Signature over S): A representation of an 
arity a over S in an S-monad R is a morphism of relative modules 



dom(a,R) — » cod(a,R) . 
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A representation R of a signature over S is a given by a relative S-monad — called R as well 
— and a representation a R of each arity a of S in R. 

Representations of (S, S) are the objects of a category Rep A (S, £), whose morphisms are 
defined as follows: 

3.22 Definition (Morphism of Representations) : Given representations P and R of a typed 
signature (S, £), a morphism of representations / : P — > R is given by a morphism of relative 
S-monads / : P — > R, such that for any arity a of S the following diagram of module 
morphisms commutes: 

a p 

dom(a, P) > cod(a, P) 



dom(a,/) 



cod(a,/) 



dom(a,R) > cod(a,R). 

a R 

3.23 Lemma: For any typed signature (S, £), the category of representations of (S, X) has an 
initial object. 

Proof The initial object is obtained, analogously to the untyped case (cf. Ahrens (2011)), via 
an adjunction A* H between the categories of representations of (S, S) in relative monads 
and those in monads as in Ahrens (2012a). 

In more detail, to any relative S-monad (T, P) e S-RMnd we associate the S-monad 
U(T,P) := (T, UP) where U^P is the monad obtained by postcomposing with the forgetful 
functor U T : Pre T — > Set T . Substitution for U t P is defined, in each fibre, as in Lem. 2.17. For 
any arity seE we have that 

U* dom(s, P) = dom(s, [/*P) , 

and similar for the codomain. The postcomposed representation morphism l/*s(P) hence rep- 
resents 5 in U*P in the sense of Ahrens (2012a). This defines the functor [/* : Rep A (S, E) — * 
Rep(S,S). Conversely, to any S-monad we can associate a relative S-monad by postcom- 
posing with A T : Set T — > Pre , analogous to the untyped case in Ahrens (2011), yielding 
A* : Rep(S, S) -> Rep A (S, E). In summary, the natural isomorphism 

ip R! p : (Rep A (S,S))(A,R,P)^ (Rep(S,S))(R,f/,P) 

is given by postcomposition with the forgetful functor (from left to right) resp. the functor A 
(from right to left). 

□ 



3.3 Inequations 

Analogously to the untyped case (cf. Ahrens (2011)), an inequation associates, to any repre- 
sentation of (S, S) in a relative monad P, two parallel morphisms of P-modules. However, 
similarly to arities, an inequation may now be, more precisely, a family of inequations, indexed 
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by object types. Consider the simply-typed lambda calculus, which was defined with typed 
abstraction and application. Similarly, we have a typed substitution operation for TLC, which 
substitutes a term of type s e Tj]_q for a free variable of type 5 in a term of type t e Tj\_q, 
yielding again a term of type t. For s,te T TLC and M e TLC(V* s ) t and N e TLC(V) S , beta 
reduction is specified by 

X s>t M(N) ~>M[* :=N] , 

where our notation hides the fact that not only abstraction, but also application and substi- 
tution are typed operations. More formally, such a reduction rule might read as a family of 
inequations between morphisms of modules 

app s t o (abs s t x id) < _[* s := t J , 

where s,t€ Tti.C range over types of the simply-typed lambda calculus. Analogously to 
Sect. 3.1.2, we want to specify the beta rule without referring to the set Tj\_q, but instead 
express it for an arbitrary representation R of the typed signature (Stlg ^tlc) (cf- Exs. 3.2, 
3.19), as in 

app R o (abs* x id) < _[* := J , 

where both the left and the right side of the inequation are given by suitable R-module 
morphisms of degree 2. Source and target of a half-equation accordingly are given by 
functors from representations of a typed signature (S, S) to a suitable category of modules. 
A half-equation then is a natural transformation between its source and target functor: 

3.24 Definition (Category of Half-Equations): Let (S, S) be a signature. An (S, H)-module 
U of degree n G N is a functor from the category of representations of (S, S) as defined in 
Sect. 3.2 to the category LRMod n (S, Pre) (cf. Def. 3.9) commuting with the forgetful functor 
to the category of relative monads. We define a morphism of (S, S)-modules to be a natural 
transformation which becomes the identity when composed with the forgetful functor. We 
call these morphisms half-equations (of degree n). We write U R := U(R) for the image of the 
representation R under the S-module U, and similar for morphisms. 

3.25 Definition (Substitution as Half-Equation): Given a relative monad on A T , its as- 
sociated substitution-of-one-variable operation (cf. Def. 2.40) yields a family of module 
morphisms, indexed by pairs (s, t) e T. By Rem. 3.15 this family is equivalent to a module 
morphism of degree 2. The assignment 

subst : R ~ subst* : [R\~\ 2 x [R 2 ^ [R 2 ] 2 

thus yields a half-equation of degree 2 over any signature S. Its domain and codomain are 
classic. 

3.26 Example (Ex. 3.19 continued): The map 

app o (abs x id) : R >-> app K o (abs R , id R ) : [R^] 2 x [R 2 ] 1 -> [R 2 ] 2 
is a half-equation over the signature TLC, as well as over the signature of PCF. 
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Fix < app o (id, Fix) : [9 X ] 1=>1 -» [9 X ] x 
app o (Succ, n) < n + 1 : * — » [9] t 
app o (Pred, 0) < : * -» [9] t 
app o (Pred, app o (Succ, n)) < n : * — » [9] t 
app o (Zero?, 0) < T : * — » [9] 
app o (Zero?, app o (Succ, n)) < F : * — » [9] 



Figure 2: Reduction Rules of PCF 



3.27 Definition: Any classic arity of degree n, 

5 = [©^ 1 ]«, 1 x...x[e^] <rBi -[e n ] <y , 

defines a classic S-module 

dom(s) : R [fl^ x . . . x [R^] CTm . 

3.28 Definition (Inequation): Given a signature (S, S), an inequation over (S, S), or (S, £)- 
inequation, of degree n e N is a pair of parallel half-equations between (S, S)-modules of 
degree n. We write a < y for the inequation (a, y). 

3.29 Example (Beta Reduction): For any suitable 1-signature — i.e. for any 1-signature 
that has an arity for abstraction and an arity for application — we specify beta reduction 
using the parallel half-equations of Def. 3.25 and Ex. 3.26: 

app o (abs x id) < subst : [9^] 2 x [9 2 ] 1 -> [9 2 ] 2 . 

3.30 Example (Fixpoints and Arithmetics of PCF): The reduction rules of PCF are specified 
by the inequations — over the 1-signature of PCF as given in Ex. 3.20 — of Fig. 2. 

3.31 Definition (Representation of Inequations) : A representation of an (S,T,)-inequation 
a < y : U — » V (of degree n) is any representation R over a set of types T of (S,S) such 
that a R < y R pointwise, i.e. if for any pointed context {X, t) e Set r x T n , any t€T and any 

« R (y) < r R (y) > (6) 

where we omit the sort argument t as well as the context (X, t) from a and 7. We say that 
such a representation R satisfies the inequation a < y. 

For a set A of (S, S)-inequations, we call representation o/((S, S),A) any representation 
of (S, S) that satisfies each inequation of A. We define the category of representations of 
the 2-signature ((S, S), A) to be the full subcategory of the category of representations of S 
whose objects are representations of ((S,S),A). We also write (S,A) for ((S,S),A). 
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According to Rem. 3.15, the inequation of Disp. (6) is equivalent to ask whether, for any 
te J , any t e T and anyye L/ t R (X)(t), 

«f(y) < r?G0 • 
3.4 Initiality for 2-Signatures 

We are ready to state and prove an initiality result for typed signatures with inequations: 

3.32 Theorem: For any set of classic (S, T.)-inequations A, the category of representations of 
((S, £),A) has an initial object. 

Proof The proof is analogous to that of the untyped case (Ahrens 2011). The fact that we 
now consider typed syntax introduces a minor complication, on the presentation of which we 
put the emphasis during the proof. The basic ingredients for building the initial representation 
are given by the initial representation (S, S) — or just £ for short — in the category Rep(S, S) 
of representations in monads on set families (Ahrens 2012a). Equivalently the ingredients 
come from the initial object (S, A*S) — or just A^S for short — of representations without 
inequations in the category Rep A (S, S) (cf. Lem. 3.23). We call S resp. A^S the monad resp. 
relative monad underlying the initial representation 

The proof consists of 3 steps: at first, we define a preorder < A on the terms of S, induced 
by the set A of inequations. Afterwards we show that the data of the representation £ — 
substitution, representation morphisms etc. — is compatible with the preorder < A in a 
suitable sense. This will yield a representation T, A of (£, A). Finally we show that T, A is the 
initial such representation. 

— The monad underlying the initial representation: 

For any context X e Set s and t e S, we equip SX(t) with a preorder A by setting — morally, 
cf. below — , for x,y e £X(t), 

x< A y VK : Rep(£,A), i R (x) < R i R (y) , (7) 

where i R : A*S — > R is the initial morphism of representations of (S, S), cf. Lem. 3.23. Note 
that the above definition in Disp. (7) is ill-typed: we have x e EX(t), which cannot be 
applied to (a fibre of) : g(SX) — » R(gX). We denote by if = ip R the natural isomorphism 
induced by the adjunction of Def. 2.13 obtained by retyping — along the initial morphism of 
types g : S — * T = T R — towards the set T of "types" of R, 

Vx,y ■ Pre r (i(tX),R(gX)) = Pre 5 (£x,R{gX) ° g) ■ 
Instead of the above definition in Disp. (7), we should really write 

x < A y :^ VK : Rep(S,A), ( V (i R>x )) (x) < R ((/>( i^)) (y) , (8) 
where we omit the subscript "R" from (p. We have to show that the map 

X ~ t A X := (TX, < A ) 
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yields a relative monad on A s . The missing fact to prove is that the substitution with a 
morphism 

/ e Pre S (AX,S A 7) = Set S (X,£7) 

is compatible with the order < A : given any / e Pre s (AX, T> A Y) we show that 

cr £ Cf) e Set § (EX, EY) 

is monotone with respect to < A and hence (the carrier of) a morphism 

a^(/)ePre S (S A X,S A y) . 

We overload the infix symbol »= to denote monadic substitution. Note that this notation 
now hides an implicit argument giving the sort of the term in which we substitute. Suppose 
ije SX(t) with x < A y, we show 

*>=/ < A y»=/ • 

Using the definition of < A , we must show, for a given representation R of (£,A), 

Let g be the initial morphism of types towards the types of R. Since i := i R is a morphism 
of representations — and thus in particular a monad morphism, it is compatible with the 
substitution of S and R; we have 

g(sx) — > g(sy) do) 



By applying the isomorphism ip on the diagram of Disp. (10), we obtain 

<p(i Y ) o <j{f) = tp(i Y o g(cr(/))) 

= (p (cr(i y o gf)oi x ) 

= g*((J R (i y °g/))ovp(i x ) . (11) 
Rewriting the equality of Disp. (11) twice in the goal Disp. (9) yields the goal 
g* (o R a Y o I/)) (((^fe))(x)) = g* o I/)) ((<p(i x ))(y)) , 

which is true since g* (a R (i y ° g/)J is monotone and (v(ix)Xy) by hypothe- 
sis. We hence have defined a monad S A over A s . 

It remains to show that this is a reduction monad: for / < we must prove that 
cr(/) < cr(/0. By Disp. (11), it suffices to show that 

g*(a R (i Y ogf))< g *(a R (i Y ogf')) 
which follows from the fact that R is a reduction category. 
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3.33 Lemma: Given a classic S-module V : Rep A (S, E) -» LRMod(S, Pre) from the category 
of representations o/(S, £) in S-monads to the large category of modules over S-monads and 
x,y <E V(t,)(X)(t), we have 

x< A y£ v|(t) <=> MR : Rep(S,A), V(i R )(x) < v r V(i R Xy) , 

where now and later we omit the arguments X and (i R (t)i e.g., in V(i K )(X)(i R (t))(x). 

Proof of Lem. 3.33. The proof is done by induction on the derivation of "V classic". The only 
interesting case is where V = M x N is a product: 

Oi,yi) < 2 ,y 2 ) ^ x i - x 2 A Ji 

^ Vi?,M(i K )(x 1 ) < M(i R )(x 2 ) A VR,iV(i R )(y 1 ) < N(i R )(y 2 ) 
^ Vi?,M(i R )(x 1 ) < M(i R )(x 2 ) AN(i R X yi ) < N(i R )(y 2 ) 
^ MR, V(i R )Oi,yi) < V(i R )(x 2) y 2 ) . 

□ 

— Representing S in S^: 

Any arity s€E should be represented by the module morphism 5 s , i.e. by the representation 
of s in S. We have to show that those representations are compatible with the preorder A. 
Given x < A y in dom(s, we show (omitting the argument X in s s (X)(x)) 

sHx) < A sHy) ■ 

By definition, we have to show that, for any representation R with initial morphism i = i R : 
S — > R as before, 

But these two sides are precisely the images of x and y under the upper-right composition 
of the diagram of Def. 3.22 for the morphism of representations i R . By rewriting with this 
diagram we obtain the goal 

5 R ((dom( 5 )(i R ))(x)) < R 5 *((dom( 5 )a K ))(y)) . 

We know that s R is monotone, thus it is sufficient to show 

(dom0)(i R ))O) < R (domO)(; R ))(30 • 

This goal follows from Lem. 3.33 (instantiated for the classic S-module dom(s), cf. Def. 3.27) 
and the hypothesis x < A y. We hence have established a representation — which we call S A 

— of S in T, A . 

— T, A satisfies A 

The next step is to show that the representation T, A satisfies A Given an inequation 

a < y : U V 
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of A with a classic S-module V, we must show that for any context X e Set s , any t£S and 
any x e [/(S j4 )(X) t in the domain of a we have 

aHx) <a rHx) , 

where here and later we omit the context argument X and the sort argument t. By Lem. 3.33 
the goal is equivalent to 

VR : Rep(£,A), V(i R )(a^(x)) < v r V(i R X Y Hx)) . (12) 

Let R be a representation of (£,A). We continue by proving Disp. (12) for R. The half- 
equations a and y are natural transformations. The fact that i R is the carrier of a morphism 
of (S, S)-representations from AS to R allows to rewrite the goal as 

a R ([/(i R )(x)) < v r r R iu(i R Xx)) , 

which is true since R satisfies A. 
— Initiality of T, A : 

Given any representation R of (£, A), the morphism i R is monotone with respect to the orders 
on S A and R by construction of < A . It is hence a morphism of representations from S A to 
R. Unicity of the morphisms i R follows from its unicity in the category of representations 
of (S,£), i.e. without inequations. Hence (S, S A ) is the initial object in the category of 
representations of ((S, £), A). 

□ 

3.34 Remark Iteration Principle by Initiality: The universal property of the language gener- 
ated by a 2-signature yields an iteration principle to define maps — translations — on this 
language, which are certified to be compatible with substitution and reduction in the source 
and target languages. How does this iteration principle work? More precisely, what data 
(and proof) needs to be specified in order to define such a translation via initiality from a 
language, say, (S, £4) to another language (§', £^), generated by signatures (S, S,A) and 
(S', T,',A'), respectively? The translation is a morphism — an initial one — in the category of 
representations of the signature (S, S, A) of the source language. It is obtained by equipping 
the relative monad T,' A , underlying the target language with a representation of the signature 
(S, S,A). In more detail: 

1. we give a representation of the type signature S in the set §'. By initiality of S, this 
yields a translation S — * S' of sorts. 

2. Afterwards, we specify a representation of the term signature S in the monad T,' A , by 
defining suitable (families) of morphisms of S^-modules. This yields a representation 
R of (S, S) in the monad £' A ,. 

By initiality, we obtain a morphism / : (S, S) — * R of representations of (S, S), that is, we 
obtain a translation from (S,S) to (§', S') as the colax monad morphism underlying the 
morphism / . However, we have not yet ensured that the translation / is compatible with the 
respective reduction preorders in the source and target languages. 
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3. Finally, we verify that the representation R of (S, S) satisfies the inequations of A, that 
is, we check whether, for each a<y:[/— >VeA, and for each context V, each t € S 
and x e Uy(t), 

a R (» < y R 0) . 

After verifying that R satisfies the inequations of A, the representation R is in fact a represen- 
tation of (S, S,A). The initial morphism / thus yields a faithful translation from (S, S A ) to 
(S',%). 

3.35 Example (Translation from PCF to ULC, Sect. 4): We use the above explained iter- 
ation principle to specify a translation from PCF to the untyped lambda calculus, that is 
semantically faithful with respect to the usual reduction relation of PCF — generated by the 
inequations of Ex. 3.30 — and beta reduction of the lambda calculus. 

For the translation of PCF to the lambda calculus mapping the fixedpoint operator of PCF 
to the Turing fixedpoint combinator, we have formalized its specification via initiality in the 
proof assistant Coq (Coq 2010). After constructing the category of representations of PCF, 
we equip the untyped lambda calculus with a representations of PCF, representing the arity 
Fix by the Turing operator ©. The Coq source files as well as documentation is available on 

http: / / math.unice.fr/laboratoire/logiciels. 

Note that the translation is given by a Coq function and hence executable. 

4 A Translation from PCF to ULC via Initiality, in Coq 

In this section we describe the implementation of the category of representations of PCF, 
equipped with reduction rules, as well as of its initial object. This yields an instance of 
Thm. 3.32. However, for the implementation in Coq of this instance we make several 
simplifications compared to the general theorem: 

• we do not define a notion of 2-signature, but specify directly a Coq type of representa- 
tions of semantic PCF; 

• we use dependent Coq types to formalize arities of higher degree (cf. Def. 3.10), 
instead of relying on modules on pointed categories. A representation of an arity of 
degree n is thus given by a family of module morphisms (of degree zero), indexed n 
times over the respective object type as described in Rem. 3.15; 

• the relation on the initial object is not defined via the formula of Disp. (7), but directly 
through an inductive type, cf. Code 4.9, and various closures, cf. Code 4.10. 

4.1 Representations of PCF 

In this section we explain the formalization of representations of PCF with reduction rules 
(cf. Fig. 1 and Fig. 2). According to Def. 3.21 and Def. 3.31, such a representation consists of 
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1. a representation of the types of PCF (in a Coq type U), cf. Ex. 3.5, 

2. a reduction monad P over the functor A u (in the formalization: I Delta U) and 

3. representations of the arities of PCF (cf. Ex. 3.20), i.e. morphisms of P-modules with 
suitable source and target modules such that 

4. the inequations defining the reduction rules of PCF are satisfied. 

A representation of PCF should be a "bundle", i.e. a record type, whose components — or 
"fields" — are these 4 items. We first define what a representation of the term signature 
of PCF in a monad P is, in the presence of an Spcp-monad (cf. Def. 3.8). Unfolding the 
definitions, we suppose given a type Sorts, a relative monad P over I Delta Sorts and three 
operations on Sorts: a binary function Arrow — denoted by an infixed "~~>" — and two 
constants Bool and Nat. 

Variable Sorts : Type. 

Variable P : RMonad (IDelta Sorts). 

Variable Arrow : Sorts — > Sorts — > Sorts. 

Variable Bool : Sorts. 

Variable Nat : Sorts. 

Notation "a ~~> b" := (Arrow a b) (at level 60, right associativity). 

In this context, a representation of PCF is given by a bunch of module morphisms satisfying 
some conditions. We split the definition into smaller pieces, cf. Code 4.1 - 4.5 . Note that M [t] 
denotes the fibre module of module M with respect to t, and d M / / u denotes derivation of 
module M with respect to u. The module denoted by a star * is the terminal module, which 
is the constant singleton module. 

4.1 Code (1-Signature of PCF): 

Class PCFPOrepstruct := { 

app : forall u v, (P[u ~~> vj) x (P[u]) > P[v] 

where "A @ B" := (app (A,B)); 

abs : forall u v, (d P // u)[v] > P[u ~~> v]; 

rec : forall t, P[t ~~> t] > P[t]; 

tttt : * > P[Bool]; 

ffff : * > P[Bool]; 

nats : forall m:nat, * > P[Nat]; 

Succ : * > P[Nat ~~> Nat]; 

Pred : * > P[Nat ~~> Nat]; 

Zero : * > P[Nat ~~> Bool]; 

CondN: * > P[Bool ~~> Nat ~~> Nat ~~> Nat]; 

CondB: * > P[Bool ~~> Bool ~~> Bool ~~> Bool]; 

bottom: forall t, * > P[t]; 

These module morphisms are subject to some inequations specifying the reduction rules of 
PCF. The beta rule reads as 

4.2 Code (Beta Rule for Representations of PCF): 
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beta red : forall r s V y z, abs r s V y z << y[*:= z] ; 

where y[*:= z] is the substitution of the freshest variable (cf. Def. 2.40) as a special case 
of simultaneous monadic substitution. The rule for the fixed point operator says that 
Y(/W(Y(/)): 

4.3 Code (Inequation for Fixedpoint Operator): 
Rec A: forall V t g, rec t V g << g rec g 

The other inequations concern the arithmetic and logical constants of PCF. Firstly, we have 
that the conditionals reduce according to the truth value they are applied to: 

4.4 Code (Logic Inequations of PCF Representations): 

CondN_t: forall V n m, CondN V tt tttt _ tt @ n @ m << n ; 
CondN_f: forall V n m, CondN V tt @ ffff _ tt @ n @ m << m ; 
CondB_t: forall V n m, CondB V tt @ tttt _ tt @ n @ m << n ; 
CondB_f: forall V n m, CondB V tt @ ffff _ tt @ n @ m « m ; 

Furthermore, we have that succ(n) reduces to n+1 (which in Coq is written S n), reduction of 
the zero? predicate according to whether its argument is zero or not, and that the predecessor 
is post-inverse to the successor function: 

4.5 Code (Arithmetic Inequations of PCF Representations): 

Succ_red: forall V n, Succ V tt nats n _ tt << nats (S n) _ tt ; 

Zero_t: forall V, Zero V tt nats _ tt << tttt _ tt ; 

Zero_f: forall V n, Zero V tt nats (S n) _ tt << ffff _ tt ; 

Pred_Succ: forall V n, Pred V tt (Succ V tt nats n _ tt) << nats n _ tt; 

Pred_Z: forall V, Pred V tt nats _ tt << nats _ tt }. 

After abstracting over the section variables we package all of this into a record type: 

Record PCFPOrep := { 
Sorts : Type; 

Arrow : Sorts — > Sorts — > Sorts; 
Bool : Sorts ; 
Nat : Sorts ; 

pcf rep_monad :> RMonad (I Delta Sorts); 

pcf_rep_struct :> PCFPO_rep_struct pcf_rep_monad Arrow Bool Nat }. 
Notation "a ~~> b" := (Arrow a b) (at level 60, right associativity). 

The type PCFPO_rep constitutes the type of objects of the category of representations of 
PCF with reduction rules. 
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4.2 Morphisms of Representations 

A morphism of representations (cf. Def. 3.22) is built from a morphism g of type representa- 
tions and a colax monad morphism over the retyping functor associated to the map g. In the 
particular case of PCF, a morphism of representations from P to R consists of a morphism 
of representations of the types of PCF — with underlying map Sorts_map — and a colax 
morphism of relative monads which makes commute the diagrams of the form given in 
Def. 3.22. We first define the diagrams we expect to commute, before packaging everything 
into a record type of morphisms. The context is given by the following declarations: 

Variables P R : PCFPOrep. 

Variable Sortsmap : Sorts P -> Sorts R. 

Hypothesis HArrow : forall u v, Sorts map (u ~~> v) = Sorts_map u ~~> 
Sorts_map v. 

Hypothesis HBool : Sorts map (Bool _ ) = Bool _ . 
Hypothesis HNat : Sorts map (Nat _ ) = Nat _ . 
Variable f : colax_RMonad_Hom P R 

(RETYPE (fun t => Sorts_map t)) 

(RETYPE PO (fun t => Sorts map t)) 
(RT_NT (fun t => Sorts map t)). 

We explain the commutative diagrams of Def. 3.22 for some of the arities. For the successor 
arity we ask the following diagram to commute: 

4.6 Code (Commutative Diagram for Successor Arity): 
Program Definition Succ_hom' := 

Succ ;; f [(Nat ~~> Nat)] ;; Fib_eq_RMod ;; IsoPF == * >* ;; f ** Succ. 

Here the morphism Succ refers to the representation of the successor arity either of P 
(the first appearance) or R (the second appearance) — Coq is able to figure this out itself. 
The domain of the successor is given by the terminal module *. Accordingly, we have 
that dom(Succ,/) is the trivial module morphism with domain and codomain given by the 

terminal module. We denote this module morphism by * >*. The codomain is given as 

the fibre of / of type i => i. The two remaining module morphisms are isomorphisms which 
do not appear in the informal description. The isomorphism IsoPF is needed to permute 
fibre with pullback (cf. Lem. 2.39). The morphism Fib_eq_RMod M H takes a module M 
and a proof H of equality of two object types as arguments, say, H : u = v. Its output is an 
isomorphism M[u] > M[v]. Here the proof is of type 

Sorts map (Nat ~~> Nat) = Sorts map Nat ~~> Sorts map Nat 

and Coq is able to figure out the proof itself. The diagram for application uses the product of 
module morphisms, denoted by an infixed X: 

4.7 Code (Commutative Diagram for Application Arity): 

Program Definition app horn' := forall u v, 
app u v;; f [( _ )] ;; IsoPF == 
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(f [(u ~~> v)] ;; Fibeq RMod _ (HArrow _ _);; IsoPF ) X (f [(u)] ;; IsoPF ) ;; 
IsoXP ;; f ** (app ). 

In addition to the already encountered isomorphism IsoPF we have to insert an isomorphism 
IsoXP which permutes pullback and product (cf. Lem. 2.37). As a last example, we present 
the property for the abstraction: 

4.8 Code (Commutative Diagram for Abstraction Arity): 

Program Definition abshom' := forall u v, 
abs u v ;; f [( _ )] == 

DerFibRModHom ;; IsoPF ;; f ** (abs (_ u) (_ v)) ;; IsoFP ;; 

Fib_eq_RMod _ (eq_sym (HArrow _ _ )) . 

Here the module morphism DerFib RMod Horn f u v corresponds to the morphism dom(Abs(u, v),f) = 

[f u ] v , and IsoFP permutes fibre with pullback, just like its sibling IsoPF, but the other way 

round. 

We bundle all those properties into a type class: 

Class PCFPO_rep_Hom_struct := { 
CondBhom : CondB horn' ; 
CondN hom : CondN hom' ; 
Predhom : Pred horn' ; 
Zero horn : Zero_hom' ; 
Succ_hom : Succ_hom' ; 
fffhom : fffhom' ; 
ttthom : ttt horn' ; 
bottom_hom : bottom_hom' ; 
nats_hom : nats horn' ; 
app_hom : app hom' ; 
rec horn : rechom' ; 
abs horn : abs_hom' }. 

Similarly to what we did for representations, we abstract over the section variables and 
define a record type of morphisms of representations from P to R : 

Record PCFPO rep Horn := { 
Sorts map : Sorts P -> Sorts R ; 

HArrow : forall u v, Sorts_map (u ~~> v) = Sorts map u ~~> Sorts_map v; 
HNat : Sorts_map (Nat _ ) = Nat R ; 
HBool : Sorts map (Bool _ ) = Bool R ; 

rep_Hom_monad :> colax RMonad Horn P R (RT NT Sorts map); 
rep_colax_Hom_monad_struct :> PCFPO rep_Hom_struct 
HArrow HBool HNat rep_Hom_monad }. 



34 



4.3 Equality of Morphisms, Category of Representations 

We have already seen how some definitions that are trivial in informal mathematics, turn 
into something awful in intensional type theory. Equality of morphisms of representations is 
another such definition. Informally, two such morphisms a, c : P — * R of representations are 
equal if 

1. their map of object types f a and f c (Sorts map) are equal and 

2. their underlying colax morphism of monads — also called a and c — are equal. 

In our formalization, the second condition is not even directly expressable, since these monad 
morphisms do not have the same type: we have, for a context V e Set p , 

a v :f a (PV)^R(f a V) 

and 

c v :f c (PV)^R(f c V) . 

where Set p is a notation for contexts typed over the set of object types the representation P 
comes with, formally the type Sorts P. We can only compare a v to c v by composing each of 
them with a suitable transport transp again, yielding morphisms 

K(transp) ° a v : f a (PV) - R(f a V) - R(f c V) 

and 

c v o transp' : f a (PV) ^ f c (PV) ^ R(f c V) . 

As before, for equal fibres [M] u and [M] t with u = t, the carriers of those transports transp 
and transp' are terms of the form eq rect _ _ H, where H is a proof term which depends 
on the proof of 

forall x : Sorts P, Sortsmap c x = Sortsmap a x 

of the first condition. Altogether, the definition of equality of morphisms of representations is 
given by the following inductive proposition: 

Inductive eq_Rep (P R : PCFPO_rep) : relation (PCFPO_rep_Hom P R) := 
eq rep : forall (a c : PCFPO_rep_Hom P R), 

forall H : (forall t, Sorts map c t = Sorts map a t), 
(forall V, a V ;; rlift R (Transp H V) 

Transp ord H (P V) ;; c V ) — > eq Rep a c. 

The formal proof that the relation thus defined is an equivalence is inadequately long when 
compared to its mathematical complexity, due to the transport elimination. 

Composition of representations is done by composing the underlying maps of sorts, as well 
as composing the underlying monad morphisms pointwise. Again, this operation, which is 
trivial from a mathematical point of view, yields a difficulty in the formalization, due to the 
fact that in the formalization 

g(fV)£(g°f)V . 
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More precisely, suppose given two morphisms of representations a : P — > Q and b : Q — > R, 
given by families of morphisms indexed by V resp. W, 

a v : PV a Q(V a ) and 

b w : QW b R(W b ) , 

. — - — * 

where we write V a for f a V. The monad morphism underlying the composite morphism of 
representations is given by the following definition: 



PV 

match 

PV 

ctype 

pv a 



b°a v 



-^R{V boa ) 



ctype 











R 1 V a 








— b 





or, in Coq code, 

Definition comp_rep_car : (forall c : ITYPE U, 

RETYPE (fun t => f (f t)) (P c) > 

R ((RETYPE (fun t => f (f t))) c)) : = 
fun (V : ITYPE U) t (y : retype (fun t => f (f t)) (P V) t) => 
match y with ctype _ z => 
lift (M:=R) (double_retype_l (f:=f) (f :=f) (V:=V)) _ 

(b (ctype (fun t => f t) 

(a (ctype (fun t => f t) z )))) 

end. 

where double retype _1 denotes the isomorphism in the upper right corner. The proof of 
the commutative diagrams for the composite monad morphism is lengthy due to the number 
of arities of the signature of PCF. Definition of the identity morphisms is routine, and in the 
end we define the category of representations of semantic PCF: 

Program Instance REP_s : 

Cat struct (obj := PCFPO rep) (PCFPO rep Hom) := { 
mor_oid P R := eq_Rep oid P R ; 
id R := Rep_id R ; 
comp a b c f g := Rep_comp f g }. 



4.4 One Particular Representation 

We define a particular representation, which we later prove to be initial. First of all, the set 
of object types of PCF is given as follows: 
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Inductive Sorts := 
| Nat : Sorts 
Bool : Sorts 

Arrow : Sorts — > Sorts — > Sorts. 

For this section we introduce some notations: 

Notation 11 'TV 11 := PCF.Sorts. 

Notation "'Bool'" := PCF.Bool. 

Notation "'Nat'" := PCF.Nat. 

Notation "'IT'" := (ITYPE TY). 

Notation "a '~>' b" := (PCF. Arrow a b) (at level 69, right associativity). 

We specify the set of PCF constants through the following inductive type, indexed by the 
sorts of PCF: 

Inductive Consts : TY — > Type := 
| Nats : nat -> Consts Nat 

ttt : Consts Bool 

fff : Consts Bool 
I succ : Consts (Nat ~> Nat) 
| preds : Consts (Nat ~> Nat) 
| zero : Consts (Nat ~> Bool) 
j condN: Consts (Bool ~> Nat ~> Nat ~> Nat) 

condB: Consts (Bool ~> Bool ~> Bool ~> Bool). 

The set family of terms of PCF is given by an inductive family, parametrized by a context V 
and indexed by object types: 

Inductive PCF (V: TY -> Type) : TY -> Type:= 
Bottom: forall t, PCF V t 
j Const : forall t, Consts t -> PCF V t 

Var : forall t, V t -> PCF V t 
j App : forall t s, PCF V (s ~> t) -> PCF V s -> PCF V t 
Lam : forall t s, PCF (opt t V) s -> PCF V (t ~> s) 
Rec : forall t, PCF V (t ~> t) -> PCF V t. 
Notation "a @ b" := (App a b)(at level 43, left associativity). 
Notation "M '" := (Const _ M) (at level 15). 

Monadic substitution is defined recursively on terms: 

Fixpoint subst (V W: TY -> Type)(f: forall t, V t -> PCF W t) 
(t : TY)(v : PCF V t) : PCF W t := 
match v with 
Bottom t => Bottom W t 
c ' => c 
Var t v => f t v 
u @ v => u >>= f v >>= f 
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I Lam t s u => Lam (u >>= shift f) 

Rec t u => Rec (u >>= f) 
end 

where "y >>= f" := (Osubst _ _ f _ y). 

Here shift f is the substitution map f extended to account for an extended context under the 
binder Lam. It is equal to the shifted map of Def. 2.33. 

Finally, we define a relation on the terms of type PCF via the inductive definition 

4.9 Code (Reduction Rules for PCF): 

Inductive eval (V : IT): forall t, relation (PCF V t) := 
| app_abs : forall (s t:TY) (M: PCF (opt s V) t) N, 

eval (Lam M N) (M [*:= N]) 
| condN_t: forall n m, eval (condN ' @ ttt ' @ n @ m) n 
j condN_f: forall n m, eval (condN ' @ fff ' @ n @ m) m 

condB_t: forall u v, eval (condB ' @ ttt ' @ u @ v) u 
j condB_f: forall u v, eval (condB ' @ fff ' @ u @ v) v 
| succ_red: forall n, eval (succ ' @ Nats n ') (Nats (S n) ') 

zero t: eval ( zero ' @ Nats ') (ttt ') 

zero_f: forall n, eval (zero ' @ Nats (S n)') (fff ') 

predSucc: forall n, eval (preds ' @ (succ ' @ Nats n ')) (Nats n ') 

predz: eval (preds ' @ Nats ') (Nats ') 

rec a : forall t g, eval (Rec g) (g @ (Rec (t:=t) g)). 

which we then propagate into subterms (cf. Code 4.10) and close with respect to transitivity 
and reflexivity: 

4.10 Code (Propagation of Reductions into Subterms): 

Reserved Notation "x :> y" (at level 70). 

Variable rel : forall (V:IT) t, relation (PCF V t). 

Inductive propag (V: IT) : forall t, relation (PCF V t) := 

| relorig : forall t (v v': PCF V t), rel v v' — > v :> v' 
relAppl: forall s t (M M' : PCF V (s ~> t)) N, M :> M' -> M @ N :> M' @ N 
relApp2: forall s t (M : PCF V (s ~> t)) N N', N :> N' -> M @ N :> M @ N' 
relLam: forall s t (M M':PCF (opt s V) t), M :> M' -> Lam M :> Lam M' 

j relRec: forall t (M M" : PCF V (t ~> t)), M :> M' -> Rec M :> Rec M' 

where "x :> y" := (@propag _ xy). 

The data thus defined constitutes a relative monad PCFEM on the functor A TpCF (I Delta TY). 
We omit the details. 

Now we need to define a suitable morphism (resp. family of morphisms) of PCFEM- 
modules for any arity (of higher degree). Let a be any such arity, for instance the arity App. 
We need to verify two things: 

1. we show that the constructor of PCF which corresponds to a is monotone with respect 
to the order on PCFEM. For instance, we show that for any two terms r s:TY and any 
V : I Delta TY, the function 
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fun y => App (fst y) (snd y): PCFEM V (r~>s) x PCFEM V r -> PCFEM V s 



is monotone. 

2. We show that the monadic substitution defined above distributes over the constructor, 
i.e. we prove that the constructor is the carrier of a module morphism. 

All of these are very straightforward proofs, resulting in a representation PCFE_rep of 
semantic PCF: 

Program Instance PCFE_rep_struct : 

PCFPO rep struct PCFEM PCF.arrow PCF. Bool PCF.Nat := { 

app r s := PCFApp r s; 

abs r s := PCFAbs r s; 

rec t := PCFRec t ; 

tttt := PCFconsts ttt ; 

ffff := PCFconsts fff; 

Succ := PCFconsts succ; 

Pred := PCFconsts preds; 

CondN := PCFconsts condN; 

CondB := PCFconsts condB; 

Zero := PCFconsts zero ; 

nats m := PCFconsts (Nats m); 

bottom t := PCFbottom t }. 
Definition PCFErep : PCFPOrep := Build PCFPOrep PCFErepstruct. 

Note that in the instance declaration PCFE_rep_struct, the Program framework proves 
automatically the properties of Code 4.2, 4.3, 4.4 and 4.5. 

4.5 Initiality 

In this section we define a morphism of representations from PCFE_rep to any representation 
R : PCFPO_rep. At first we need to define a map between the underlying sorts, that is, a 
map Sorts PCFE rep — > Sorts R. In short, each PCF type goes to its representation in R: 

Fixpoint lnit_Sorts map (t : Sorts PCFE_rep) : Sorts R := 
match t with 

PCF.Nat => Nat R 

PCF. Bool => Bool R 
| u ~> v => (lnit_Sorts map u) ~~> (lnit_Sorts_map v) 
end. 

The function i nit is the carrier of what will later be proved to be the initial morphism to 
the representation R. It maps each constructor of PCF recursively to its counterpart in the 
representation R: 

Fixpoint init V t (v : PCF V t) : 

R (retype (fun tO => lnit_Sorts_map tO) V) (Init Sorts map t) := 
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match v with 
Var t v => rweta R _ __ (ctype _ v) 
u @ v => app _ (init u, init v) 

Lam _ _v => abs _ _ (rlift R 

(@der_comm TY (Sorts R) (fun t => lnit_Sorts_map t) _ V ) _ (init v)) 
| Rec _ v => rec _ __ (init v) 
Bottom _ => bottom _ _ tt 
y ' => match y in Consts tl return 

R (retype (fun t2 => InitSortsmap t2) V) (Init Sorts map tl) with 
Nats m => nats m _ tt 
succ => Succ _ tt 
condN => CondN _ tt 
condB => CondB _ tt 
zero => Zero _ tt 
ttt => tttt _ tt 
fff => ffff _ tt 
preds => Pred _ tt 
end 

end. 

We write i v for init V and g for lnit_Sorts_map. Note that i v : PCF(V) — * g* (R(gV)) really 
is the image of the initial morphism under the adjunction if of Def. 2.13. Intuitively, passing 
from init V= i v to its adjunct ip~ l {i v ~) is done by precomposing with pattern matching on 
the constructor ctype. We informally denote ^ _1 (iv) by init Vo match. 

The map init is compatible with renaming and substitution in PCF and R, respectively, 
in a sense made precise by the following two lemmas. The first lemma states that, for any 
morphism / : V — > W in Set TpCF , the following diagram commutes: 



PCF(V) 



PCF(/) 



-> PCF(W) 



init V 



g*R(gV) 



init W 



-> g*R(gW). 



Lemma init Jift (V : IT) t (y : PCF V t) W (f : V > W) : 

init (y //— f) = rlift R (retype_map f) _ (init y). 

The next commutative diagram concerns substitution; for any / : V — * PCF(W), the diagram 
obtained by applying ip to the diagram given in Disp. (10) — i.e. the diagram corresponding 
to Disp. (11) — , commutes: 



PCFr 




> PCF(W) 

init W 
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In Coq the lemma init_subst proves commutativity of this latter diagram: 

Lemma init_subst V t (y : PCF V t) W (f : IDelta _ V > PCFE W): 

init (y >>= f) = 

rkleisli R (SM ind (fun t v => match v with ctype t p => init (f t p) end)) 
_ (init y). 

This latter lemma establishes almost the commutative diagram for the family </? _1 (iy) to 
constitute a (colax) monad morphism, which reads as follows: 

g(^ PCF (/)) 

g (PCF(V)) — ► g (PCF(W)) (13) 



init V o match 



init W o match 



KgV) — ^r. > K£W). 

a y\mt o match °(gfj) 

Before we can actually build a monad morphism with carrier map init V o match, we need to 
verify that init — and thus its adjunct — is monotone. We do this in 3 steps, corresponding 
to the 3 steps in which we built up the preorder on the terms of PCF: 

1. init monotone with respect to the relation eval (cf. Code 4.9): 

Lemma init eval V t (v v' : PCF V t) : eval v v' — > init v <<< init v'. 

2. init monotone with respect to the propagation into subterms of eval; 

Lemma init_eval_star V t (y z : PCF V t) : eval star y z — > init y <<< init z. 

3. init monotone with respect to reflexive and transitive closure of above relation. 
Lemma init mono c t (y z : PCFE c t) : y <<< z — > init y <<< init z. 

We now have all the ingredients to define the initial morphism from PCF to R. As already 
indicated by the diagram Disp. (13), its carrier is not given by just the map init, since this 
map does not have the right type: its domain is given, for any context V e Set rpCF , by 
PCF(V) and not, as needed, by g (PCF(V)). We thus precompose with pattern matching in 
order to pass to its adjunct: for any context V, the carrier of the initial morphism is given by 

fun t y => match y with 

ctype _ p => init p 
end 

: retype _ (PCF V) > R (retype _ W) 

We recall that the constructor ctype is the carrier of the natural transformation of the same 
name of Def. 2.13, and that precomposing with pattern matching corresponds to specifying 
maps on a coproduct via its universal property. 

Putting the pieces together, we obtain a morphism of representions of semantic PCF: 

Definition initR : PCFPO_rep_Hom PCFE_rep R : = 
Build_PCFPO_rep_Hom initR s. 
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Uniqueness is proved in the following lemma: 

Lemma initR unique : forall g : PCFE rep > R, g == initR. 

The proof consists of two steps: first, one has to show that the translation of sorts coincide. 
Since the source of this translation is an inductive type — the initial representation of the 
signature of Ex. 3.5 — this proof is done by induction. Afterwards the translations of terms 
are proved to be equal. The proof is done by induction on terms of PCF. It makes essentially 
use of the commutative diagrams (cf. Def. 3.22) which we exemplarily presented for the 
arities of successor (Code 4.6), application (Code 4.7) and abstraction (Code 4.8). Finally 
we can declare an instance of Initial for the category REP of representations: 

Instance PCF initial : Initial REP := { 
Init := PCFE_rep ; 
InitMor R := initR R ; 
InitMorUnique R := @initR_unique R }. 

Checking the axioms used for the proof of initiality (and its dependencies) yields the use of 
non-dependent functional extensionality (applied to the translations of sorts) and uniqueness 
of identity proofs, which in the Coq standard library is implemented as a consequence of 
another — logically equivalent — axiom eq_rect_eq: 

Print Assumptions PCF initial. 
Axioms: 

CatSem.AXIOMS.functional_extensionality.functiona I extensionality : 
forall (A B : Type) (f g : A -> B), 

(forall x : A, f x = g x) ->f = g 
Eq rect eq.eq rect eq : forall (U : Type) (p : U) (Q : U — > Type) 

(x : Q p) (h : p = p), x = eqrect p Q x p h 

4.6 A Representation of PCF in the Untyped Lambda Calculus 

We use the iteration principle explained in Rem. 3.34 in order to specify a translation from 
PCF to the untyped lambda calculus which is compatible with reduction in the source and 
target. According to the principle, it is sufficient to define a representation of PCF in the 
relative monad of the lambda calculus (cf. Ex. 2.9) and to verify that this representation 
satisfies the PCF inequations, formalized in the Coq code snippets 4.2, 4.3, 4.4 and 4.5. The 
first task, specifying a representation of the types of PCF, in the singleton set of types of 
ULC, is trivial. We furthermore specify representations of the term arities of PCF, presented 
in Code 4.1, by giving an instance of the corresponding type class. 

Program Instance PCF_ULC_rep_s : 

PCFPOrepstruct (Sorts:=unit) ULCBETAM (fun => tt) tt tt := { 

app r s := ulcapp r s; 
abs r s := ulc_abs r s; 
rec t := ulc_rec t ; 
tttt := ulcttt ; 
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ffff := ulc fFf ; 
nats m := ulc _N m ; 
Succ := ulc succ ; 
CondB := ulc_condb ; 
CondN := ulc condn ; 
bottom t := ulcbottom t ; 
Zero := ulc_zero ; 
Pred := ulc pred }. 

Before taking a closer look at the module morphisms we specify in order to represent the 
arities of PCF, we note that in the above instance declaration, we have not given the proofs 
corresponding to code snippets 4.2 to 4.5. In the terms of Rem. 3.34, we have not completed 
the third task, the verification that the given representation satisfies the inequations. The 
Program feature we use during the above instance declaration is able to detect that the fields 
called beta red, rec A, etc., are missing, and enters into interactive proof mode to allow us 
to fill in each of the missing fields. 

We now take a look at some of the lambda terms representing arities of PCF. The carrier 
of the representations ulc_app is the application of lambda calculus, of course, and similar 
for ulc_abs. Here the parameters r and s vary over terms of type unit, the type of sorts 
underlying this representation. We use an infixed application and a de Bruijn notation instead 
of the more abstract notation of nested data types: 

Notation "a @ b" := (App a b) (at level 42, left associativity). 
Notation "T" := (Var None) (at level 33). 
Notation "'2'" := (Var (Some None)) (at level 24). 

The truth values T and F are represented by 

Eval compute in ULCTrue. 

= Abs (Abs 2) 
Eval compute in ULC False. 

= Abs (Abs 1) 

Natural numbers are given in Church style, the successor function is given by the term 
Xnfx.f{n fx). The predecessor is represented by the constant 

Xnfx.n (Xgh.h(g f))(Xu.x)(Xu.u), 

and the test for zero is represented by Xn.n(Xx.F)T , where F and T are the lambda terms 
representing F and T, respectively. 

Eval compute in ULC_Nat 0. 

= Abs (Abs 1) 
Eval compute in ULCNat 2. 

= Abs (Abs (2 @ (Abs (Abs (2 @ (Abs (Abs 1) @ 2 @ 1))) @ 2 @ 1))) 
Eval compute in ULC_succ. 

= Abs (Abs (Abs (2 @ (3 @ 2 @ 1)))) 
Eval compute in ULC pred. 
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= Abs (Abs (Abs (3 @ Abs (Abs (1 @ (2 @ 4))) © Abs 2 @ Abs 1))) 
Eval compute in ULC zero. 

= Abs (1 @ Abs (Abs (Abs 1)) @ Abs (Abs 2)) 

The conditional is represented by the lambda term Xpab.p a b: 

Eval compute in ULCcond. 

= Abs (Abs (Abs (3 @ 2 @ 1))) 

The constant arity _L A is represented by Q: 

Eval compute in ULC omega. 
= Abs (1 @ 1) @ Abs (1 @ 1) 

The fixed point operator Fix (rec) is represented by the Turing fixed-point combinator, that 
is, the lambda term 

Eval compute in ULC theta. 

= Abs (Abs (1 @ (2 @ 2 @ 1))) @ Abs (Abs (1 @ (2 @ 2 @ 1))) 

The reason why we use the Turing operator instead of, say, the combinator Y, 

Eval compute in ULC Y. 

= Abs (Abs (2 @ (1 @ 1)) @ Abs (2 @ (1 @ 1))) 

is that the latter does not have a property that is crucial for us: It is 

e(f)~»*/(e(f)) 

but only 

Y(/)^/(Y(/)) 

via a common reduct. Thus if we would attempt to represent the arity rec by the fixed-point 
combinator Y, we would not be able to prove the condition expressed in Code 4.3. A way to 
allow for the use of Y as representation of rec would by to consider symmetric relations on 
terms, e.g., relative monads into a category of setoids. 

As a final remark, we emphasize that while reduction is given as a relation in our formal- 
ization, and as such is not computable, the obtained translation from PCF to the untyped 
lambda calculus is executable in Coq. For instance, we can translate the PCF term negating 
boolean terms as follows: 

4.11 Code: 

Eval compute in 
(PCF_ULC_c ((fun t => False)) tt (ctype _ 
(Lam (condB ' @@ x_bool @@ fff ' @@ ttt ')))). 

= Abs (Abs (Abs (Abs (3 @ 2 @ 1))) 1 Abs (Abs 1) @ Abs (Abs 2)) 

Here we use infixed to denote application of PCF, and x_bool is simply a notation for 
a de Bruijn variable of type Bool of the lowest level, i.e. a variable that is bound by the Lam 
binder of PCF in above term. 
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